home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Commando Programming ƒ / Rezscripts / RezC.STRlist < prev    next >
Encoding:
Text File  |  1989-08-09  |  754 b   |  34 lines  |  [TEXT/MPS ]
  1. ###    File: RezC.STRlist
  2. ### Generate Rez input for STR# Resources
  3. ### W. Powell    1988
  4.  
  5. Set Exit 0
  6. Set rid {1}
  7. Shift 1
  8. Echo -n "Resource ∂'STR#∂' ({rid}"
  9. If "{1}" == "-nms"
  10.     Set rname "{2}"
  11.     If ("{rname}" != "")
  12.         Echo -n ,∂""{rname}"∂"
  13.     End
  14.     Shift 2
  15. End
  16. Set Str "{1}"
  17. Shift 1
  18.  
  19. If ( "{1}" == "-sy" ) ; Echo -n ",SysHeap" ; Shift ; End
  20. If ( "{1}" == "-pu" ) ; Echo -n ",Purgeable" ; Shift ; End
  21. If ( "{1}" == "-lo" ) ; Echo -n ",Locked" ; Shift ; End
  22. If ( "{1}" == "-Pr" ) ; Echo -n ",Protected" ; Shift ; End
  23. If ( "{1}" == "-PL" ) ; Echo -n ",PreLoad" ; Shift ; End
  24. Echo ") ∂{ ∂{"
  25. Echo -n "∂t∂"{Str}∂""
  26. Loop # for more strings
  27.     RezC.STRlist.more…
  28.     Break If {Status} == 100
  29. End
  30. Echo "∂t∂} ∂};"
  31. Exit 0
  32.  
  33. ### End File RezC.STRlist
  34. ##############################